From 06fa6ff98708d20021212f13f1849a5d64e4862f Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Wed, 18 Dec 2019 20:14:09 +0000 Subject: [PATCH] Version_2_6_13pre34 Gbp-Pq: Name Version_2_6_13pre34 --- unixport/sys_init.lsp.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/unixport/sys_init.lsp.in b/unixport/sys_init.lsp.in index 218eabde..0bd8cf91 100644 --- a/unixport/sys_init.lsp.in +++ b/unixport/sys_init.lsp.in @@ -81,5 +81,5 @@ #+ansi-cl (import 'si::(clines defentry defcfun object void int double quit bye gbc system) :user) (let* ((i 4096)(j (si::equal-tail-recursion-check i))) - (unless (eql i j) + (unless (<= (ash i -1) j) (warn "equal is not tail recursive ~s ~s" i j))) -- 2.30.2